

############ INTERACTED FIXED EFFECTS
m1ife <- lm(intolerance~Distance * I(state) + prop_jewish25+unemployment33+population25+nazishare33 - 1,evs)
m1ife.plot <- tidy(emtrends(m1ife, ~ I(state), var="Distance")) %>% mutate(model = "Intolerance")
names(m1ife.plot) <- c("term","estimate","std.error","df","lb","ub","model")

m2ife <- lm(resentment~Distance * I(state) + prop_jewish25+unemployment33+population25+nazishare33 - 1,evs)
m2ife.plot <- tidy(emtrends(m2ife, ~ I(state), var="Distance")) %>% mutate(model = "Resentment")
names(m2ife.plot) <- c("term","estimate","std.error","df","lb","ub","model")

m3ife <- lm(far_right~Distance * I(state) + prop_jewish25+unemployment33+population25+nazishare33 - 1,evs)
m3ife.plot <- tidy(emtrends(m3ife, ~ I(state), var="Distance")) %>% mutate(model = "Far Right Support")
names(m3ife.plot) <- c("term","estimate","std.error","df","lb","ub","model")

all_three <- rbind(m1ife.plot,m2ife.plot,m3ife.plot)
dwplot(all_three) + theme_classic() + geom_vline(xintercept=0) + theme(plot.title = element_text(face="bold"),
                                                                       legend.position = c(.55, .75))
p <- dwplot(all_three) + theme_classic() + geom_vline(xintercept=0) + theme(plot.title = element_text(face="bold"),
                                                                            legend.position = c(.55, .75))

jpeg("figureS1.jpg", height=400, width=800)
p
dev.off()


